#! C:\Perl\bin\perl.exe

# Copyright (c) 2010, College Center for Library Automation

# See the included Copyright.txt file for full license

use strict;
use warnings;
use Date::Calc qw(Today);

#
# execute all scraper programs defined in table vendors
#
#

use avsCommon;

my $scraper = shift;
die 'Expect vendor name from get_vendor.pl as first parameter' 
	if ((! defined $scraper) || (! -e "get_$scraper.pl"));

my $runforcollegeid = paramscheck();

# delete the old files
#unlink glob("../Logs/$scraper.log");

my $nextcommand = "perl get_$scraper.pl ".join('-',@begdate).' '.join('-',@enddate)." $runforcollegeid >../Logs/$scraper-" . sprintf("%4d%02d%02d",Today) . ".log 2>&1";
print "$nextcommand\n";
system $nextcommand;

